home *** CD-ROM | disk | FTP | other *** search
/ Aminet 41 / Aminet 41 (2001)(Schatztruhe)[!][Feb 2001].iso / Aminet / util / wb / VisualPrefs.lha / VisualPrefs / Install < prev    next >
Text File  |  1999-12-13  |  22KB  |  633 lines
  1. ;** $VER: VisualPrefsBeta_install 40.10 (7.5.97) by Nik Soggia <nsoggia@telnetwork.it>
  2. ;**
  3. ;** modified (17.5.97) by MT
  4. ;** modified (13.6.97) by MT
  5. ;** modified (19.7.97) by MT
  6. ;** modified (21.7.97) by MT
  7. ;** modified (24.7.97) by MT
  8. ;** modified (26.7.97) by MT
  9. ;** modified (19.10.97) by MT
  10. ;** modified (22.10.97) by MT
  11. ;** modified (12.5.98) by MT
  12. ;** modified (13.6.98) by MT
  13. ;** modified (25.12.98) by MT
  14. ;** modified (25.5.99) by MT
  15. ;** modified (5.12.99) by MT
  16. ;** modified (12.12.99) by MT
  17. ;**
  18. ;** requires:
  19. ;** - RexxMast, Rx, Search and Version commands
  20. ;** - T: and ENV: assignments for temporary files
  21.  
  22. ;************
  23. ;** CONSTANTS
  24.  
  25. ;******************************
  26. ;** MESSAGES (DEFAULT: ENGLISH)
  27.  
  28. (set msg_rx     "Installer is unable to locate the \"Rx\" command")
  29. (set msg_rxm    "Installer is unable to locate the \"RexxMast\" command")
  30. (set msg_rxp    "Please locate it:")
  31. (set msg_wait   "Checking installation")
  32. (set msg_vpi    "A copy of VisualPrefs is already installed")
  33. (set msg_vpn    "VisualPrefs is not installed")
  34. (set msg_dir    "A drawer WILL NOT be created")
  35. (set msg_seldr  "Select the destination drawer:")
  36. (set msg_selcpu "Select the version of VisualPrefs you want to install.")
  37. (set msg_gadget "Do you want to install the \"select.gadget\" class library?\nIt is needed for the cycle gadget \"pop-up\" feature to work.")
  38. (set msg_whdoc  "Where do you want to copy the documentation files?")
  39. (set msg_whgadg "Where do you want to copy the \"select.gadget\" library?")
  40. (set msg_lang   "What language catalogs do you want to install?")
  41. (set msg_cpu000 "68000")
  42. (set msg_cpu020 "68020/030")
  43. (set msg_cpu040 "68040")
  44. (set msg_cpu060 "68060")
  45. (set msg_l_ita  "Italiano")
  46. (set msg_icoo   "Normal icons")
  47. (set msg_icon   "NewIcons")
  48. (set msg_icom   "Magic WB")
  49. (set msg_icoi   "Iconographics")
  50. (set msg_icox   "No icons")
  51. (set msg_icop   "Select icon set")
  52. (set msg_exa    "Install example preferences?")
  53. (set msg_bm     "Install example bitmaps?")
  54. (set msg_whbm   "Where do you want to copy the example bitmap directories?")
  55. (set msg_pwb    "Install the PatchWB program?\nIt fixes a bug in IPrefs V39/V40 which could cause\nproblems with VisualPrefs and other programs.\nRead the help for more information.")
  56. (set msg_pwb2   "If you select \"Yes\", PatchWB will be copied\ninto your WBStartup drawer.")
  57. (set msg_advfp  "If you are using the FullPalette patch, you should make sure your FPPrefs program is at least version 40.20, or else the bitmap loading function of VisualPrefs won't function properly.\n\nYou can find FPPrefs 40.22 in this archive, in the \"Tools\" drawer.")
  58. (set msg_adv1   "If you are using other programs similar to VisualPrefs, you should uninstall them now.\nFailure to do so could result in system crashes due to conflicts between equivalent patches.\n\n")
  59. (set msg_adv2   "In particular, if you use MCP, please turn off its \"SysIHack\", \"FrameIHack\" and \"NewGadTools\" options, and also \"CycleToMenu\" if you want to use the cycle gadget \"pop-up\" patch of VisualPrefs.\n\n")
  60. (set msg_adv3   "In the case you still experience crashes, please read the \"Notes & hints\" section of the guide, which contains useful information about how to solve many common problems.")
  61. (set msg_done   "VisualPrefs will be available next time you boot.")
  62. (set msg_done2  "\n\nIf you use them, you should remove Prop3D and\nCenterTitles from your User-startup.")
  63. (set rxhelp     "Use the file requester to select the \"Rx\" program.")
  64. (set rxmhelp    "Use the file requester to select the \"RexxMast\" program.")
  65. (set dirhelp    "Select the drawer into which VisualPrefs is to be copied.\nIt should reside in the system command path.")
  66. (set dirhelp2   "Select the drawer into which the documentation is to be copied.\nThe default is the same drawer which VisualPrefs resides in.")
  67. (set dirhelp3   "Select the drawer into which the \"select.gadget\" library is to be copied.\nThe default is \"SYS:Classes/Gadgets\".")
  68. (set cpuhelp    "If you have an accelerated Amiga, you can choose to\ninstall a more optimized version of VisualPrefs and\nits preferences editor.")
  69. (set gadghelp   "The BOOPSI class library \"select.gadget\" is needed for the cycle gadget \"pop-up\" feature to work.\nIf you don't plan to use this feature, you can avoid installing it.")
  70. (set gadghelp2  "If you choose to install it, it will be copied into a directory of your choice.\nIn the case a newer version is already in place, it won't be overwritten.")
  71. (set langhelp   "Choose one or more languages for VisualPrefs and the GUI editor.\nYou can later select which one to use with the Locale preferences editor.\nYou can find more translations on Aminet.")
  72. (set iconhelp   "Choose the style for the icons to be installed.")
  73. (set exahelp    "If you select \"Yes\", an example preferences file (preset) will be copied into your SYS:Prefs/Presets drawer.")
  74. (set bmhelp1    "This archive contains some sample bitmaps which can be used by VisualPrefs as symbols for system (screen and window) gadget images. They are organized in separate directories, one for each particular symbol style.\n\n")
  75. (set bmhelp2    "If you select \"Yes\", you will be asked where to install the bitmap directories found in the archive (and all of their contents).\n\nThe bitmaps need just a few KB of storage space.")
  76. (set bmhelp3    "Select the drawer into which the example bitmap directories are to be copied.")
  77. (set pwbhelp    "The IPrefs program which comes with AmigaOS 3.0 (V39) and 3.1 (V40) has a serious bug which sometimes causes a lock-up at the opening of the Workbench screen.")
  78. (set pwbhelp2   "If you experience such a problem when saving new preferences with the GUI editor, you should consider installing the supplied PatchWB program, which fixes it.")
  79. (set pwbhelp3   "However, the bug doesn't seem to affect all systems; if you never had the problem so far, please do NOT install this additional patch until you've verified it's really needed.")
  80. (set pwbhelp4   "Also, if you already use this patch, or if you use a newer (> V40) version of IPrefs, please skip this part.")
  81. (set pwbhelp5   "PatchWB is © 1998 Thomas Richter.")
  82. (set var_docd   "DocsEnglish")
  83. (set var_docr   "VisualPrefs.guide")
  84. (set var_doca   "VP-Developer.doc")
  85.  
  86. ;**********************
  87. ;** MESSAGES (ITALIANO)
  88.  
  89. (if (= @language   "italiano")(
  90.    (set msg_rx     "Installer non è in grado di trovare il comando \"Rx\"")
  91.    (set msg_rxm    "Installer non è in grado di trovare il comando \"RexxMast\"")
  92.    (set msg_rxp    "Per favore, localizzatelo:")
  93.    (set msg_wait   "Verifica installazione")
  94.    (set msg_vpi    "Una copia di VisualPrefs è già installata")
  95.    (set msg_vpn    "VisualPrefs non è installato")
  96.    (set msg_dir    "NON verrà creato alcun cassetto")
  97.    (set msg_seldr  "Scegliere il cassetto di destinazione:")
  98.    (set msg_selcpu "Scegliere la versione di VisualPrefs da installare.")
  99.    (set msg_gadget "Deve essere installata la libreria \"select.gadget\"?\nE` necessaria al funzionamento dell'opzione \"pop-up\" per i cycle gadget.")
  100.    (set msg_whdoc  "Dove volete che siano copiati i file della documentazione?")
  101.    (set msg_whgadg "Dove volete che sia copiata la libreria \"select.gadget\"?")
  102.    (set msg_lang   "Per quali lingue deve essere installato un catalog?")
  103.    (set msg_cpu000 "68000")
  104.    (set msg_cpu020 "68020/030")
  105.    (set msg_cpu040 "68040")
  106.    (set msg_cpu060 "68060")
  107.    (set msg_l_ita  "Italiano")
  108.    (set msg_icoo   "Normali")
  109.    (set msg_icon   "NewIcons")
  110.    (set msg_icom   "Magic WB")
  111.    (set msg_icoi   "Iconographics")
  112.    (set msg_icox   "Niente icone")
  113.    (set msg_icop   "Selezionare il set di icone")
  114.    (set msg_exa    "Installare preferenze di esempio?")
  115.    (set msg_bm     "Installare bitmap di esempio?")
  116.    (set msg_whbm   "Dove volete che siano copiate le directory di bitmap di esempio?")
  117.    (set msg_pwb    "Installare il programma PatchWB?\nCorregge un bug in IPrefs V39/V40 che può causare\nproblemi con VisualPrefs e altri programmi.\nLeggete l'aiuto per ulteriori informazioni.")
  118.    (set msg_pwb2   "Selezionando \"Sì\" PatchWB verrà copiato\nnel vostro cassetto WBStartup.")
  119.    (set msg_advfp  "Se usate il patch FullPalette, assicuratevi che il vostro programma FPPrefs sia almeno la versione 40.20, altrimenti la funzione di caricamento bitmap di VisualPrefs non funzionerà correttamente.\nTrovate FPPrefs 40.22 in questo archivio, nel cassetto \"Tools\".")
  120.    (set msg_adv1   "Se usate altri programmi simili a VisualPrefs dovreste disinstallarli ora.\nIn caso contrario potrebbero verificarsi dei crash di sistema dovuti a conflitti tra patch equivalenti.\n\n")
  121.    (set msg_adv2   "In particolare, se usate MCP, disattivate le sue opzioni \"SysIHack\", \"FrameIHack\" e \"NewGadTools\", nonché \"CycleToMenu\" se volete usare il patch \"pop-up\" di VisualPrefs per i cycle gadget.\n\n")
  122.    (set msg_adv3   "Nel caso si verifichino ugualmente dei crash, per favore leggete la sezione \"Note e suggerimenti\" della guida, che contiene utili informazioni su come risolvere molti problemi tipici.")
  123.    (set msg_done   "VisualPrefs sarà disponibile dopo il prossimo reboot.")
  124.    (set msg_done2  "\n\nSe li usate, dovreste rimuovere Prop3D e\nCenterTitles dalla vostra User-startup.")
  125.    (set rxhelp     "Usate il file requester per selezionare il programma \"Rx\".")
  126.    (set rxmhelp    "Usate il file requester per selezionare il programma \"RexxMast\".")
  127.    (set dirhelp    "Selezionare il cassetto in cui deve essere copiato VisualPrefs.\nDovrebbe trovarsi nel path dei comandi di sistema.")
  128.    (set dirhelp2   "Selezionare il cassetto in cui deve essere copiata la documentazione.\nIl default è lo stesso cassetto in cui si trova VisualPrefs.")
  129.    (set dirhelp3   "Selezionare il cassetto in cui deve essere copiata la libreria \"select.gadget\".\nIl default è \"SYS:Classes/Gadgets\".")
  130.    (set cpuhelp    "Se avete un Amiga accelerato potete scegliere di\ninstallare versioni più ottimizzate di VisualPrefs\ne del suo editor di preferenze.")
  131.    (set gadghelp   "La libreria di classe BOOPSI \"select.gadget\" è necessaria al funzionamento dell'opzione \"pop-up\" per i cycle gadget.\nSe prevedete di non usare tale opzione potete evitare di installarla.")
  132.    (set gadghelp2  "Se decidete di installarla essa verrà copiata in una directory scelta da voi.\nUn'eventuale versione più recente già presente non verrà sovrascritta.")
  133.    (set langhelp   "Scegliere una o più lingue per VisualPrefs e l'editor GUI.\nIn seguito si potrà scegliere quale usare con l'editor di preferenze Locale.\nSu Aminet si possono trovare ulteriori traduzioni.")
  134.    (set iconhelp   "Scegliere lo stile per le icone da installare.")
  135.    (set exahelp    "Selezionando \"Sì\" verrà copiato un file di preferenze di esempio (preset) nel vostro cassetto SYS:Prefs/Presets.")
  136.    (set bmhelp1    "Questo archivio contiene alcune bitmap di esempio che possono essere usate da VisualPrefs come simboli per le immagini di sistema (schermi e finestre). Esse sono organizzate in directory separate, una per ogni particolare stile di simboli.\n\n")
  137.    (set bmhelp2    "Selezionando \"Sì\" vi verrà chiesto dove installare le directory di bitmap presenti nell'archivio (e il loro intero contenuto).\n\nLe bitmap richiedono solo pochi KB di spazio su disco.")
  138.    (set bmhelp3    "Selezionare il cassetto in cui devono essere copiate le directory di bitmap di esempio.")
  139.    (set pwbhelp    "Il programma IPrefs fornito con AmigaOS 3.0 (V39) e 3.1 (V40) ha un bug serio che a volte provoca un blocco all'apertura dello schermo Workbench.")
  140.    (set pwbhelp2   "Se riscontrate tale problema quando salvate le preferenze con l'editor GUI dovreste prendere in considerazione l'installazione del programma PatchWB, che lo corregge.")
  141.    (set pwbhelp3   "Tuttavia il bug non si manifesta su tutti i sistemi; se finora non avete mai avuto questo problema, NON installate questo patch aggiuntivo prima di avere verificato la sua effettiva necessità.")
  142.    (set pwbhelp4   "Se usate già questo patch oppure usate una versione più recente (> V40) di IPrefs, per favore saltate questa parte.")
  143.    (set pwbhelp5   "PatchWB è © 1998 di Thomas Richter.")
  144.    (set var_docd   "DocsItaliano")
  145.    (set var_docr   "VisualPrefs.guide")
  146.    (set var_doca   "VP-Developer.doc")
  147. ))
  148.  
  149. ;************************
  150. ;** LOCATE AREXX PROGRAMS
  151.  
  152. (if (= 1 (exists "sys:rexxc/rx" (noreq)))
  153.    (set var_rx "sys:rexxc/rx")
  154.    (if (= 1 (exists "c:rx" (noreq)))
  155.       (set var_rx "c:rx")
  156.       (set var_rx
  157.          (askfile
  158.             (default "SYS:RexxC/Rx")
  159.             (help rxhelp)
  160.             (prompt msg_rx ".\n\n" msg_rxp)
  161.          )
  162.       )
  163.    )
  164. )
  165.  
  166. (set var_rxm (tackon (pathonly var_rx) "rexxmast"))
  167.  
  168. (if (= 0 (exists var_rxm (noreq)))
  169.    (if (= 1 (exists "sys:rexxc/rexxmast" (noreq)))
  170.       (set var_rxm "sys:rexxc/rexxmast")
  171.       (if (= 1 (exists "c:rexxmast" (noreq)))
  172.          (set var_rxm "c:rexxmast")
  173.          (if (= 1 (exists "sys:system/rexxmast" (noreq)))
  174.             (set var_rxm "sys:system/rexxmast")
  175.             (if (= 1 (exists "sys:wbstartup/rexxmast" (noreq)))
  176.                (set var_rxm "sys:wbstartup/rexxmast")
  177.                (set var_rxm
  178.                   (askfile
  179.                      (default "SYS:System/RexxMast")
  180.                      (help rxmhelp)
  181.                      (prompt msg_rxm ".\n\n" msg_rxp)
  182.                   )
  183.                )
  184.             )
  185.          )
  186.       )
  187.    )
  188. )
  189.  
  190. (run var_rxm)
  191.  
  192. ;******************************
  193. ;** CHECK PREVIOUS INSTALLATION
  194.  
  195. (working "(" msg_wait ")")
  196.  
  197. (delete "t:installvp.rx" (optional force) (safe))
  198. (textfile
  199.    (safe)
  200.    (dest "t:installvp.rx")
  201.    (append (cat
  202.       "/* filter */\n"
  203.       "\n"
  204.       "pull string\n"
  205.       "\n"
  206.       "comment=pos(';',string)\n"
  207.       "if comment~==0 then string=trim(left(string,comment-1))\n"
  208.       "say right(string,length(string)-lastpos(' ',string))\n"
  209.    ))
  210. )
  211.  
  212. (delete "t:installvp.sh" (optional force) (safe))
  213. (textfile
  214.    (safe)
  215.    (dest "t:installvp.sh")
  216.    (append (cat
  217.       "delete force t:installvp.out\n"
  218.       "\n"
  219.       "search >t:installvp.out search visualprefs S:Startup-sequence\n"
  220.       "if $RC eq 0\n"
  221.       "   setenv installvp_vp 1\n"
  222.       "   setenv installvp_vpp `" var_rx " <t:installvp.out t:installvp.rx`\n"
  223.       "else\n"
  224.       "   setenv installvp_vp 0\n"
  225.       "   setenv installvp_vpp \"\"\n"
  226.       "endif\n"
  227.       "delete t:installvp.out\n"
  228.       "\n"
  229.    ))
  230. )
  231.  
  232. (execute "t:installvp.sh" (safe))
  233. (delete "t:installvp.rx" (safe))
  234. (delete "t:installvp.sh" (safe))
  235.  
  236. (set var_vp (getenv "installvp_vp"))
  237. (set var_vpp (getenv "installvp_vpp"))
  238. (run "unsetenv installvp_vp")
  239. (run "unsetenv installvp_vpp")
  240.  
  241. (if (= 1 var_vp)
  242.    (
  243.       (set @default-dest (pathonly var_vpp))
  244.       (set msg_vp msg_vpi)
  245.    )
  246.    (set msg_vp msg_vpn)
  247. )
  248.  
  249. (complete 5)
  250.  
  251. (set no_break_warning
  252.    (askdir
  253.       (default @default-dest)
  254.       (help dirhelp)
  255.       (prompt (cat msg_vp ".\n" msg_dir ".\n\n" msg_seldr))
  256.    )
  257. )
  258. (set @default-dest (tackon no_break_warning ""))
  259.  
  260. (set docdir
  261.    (askdir
  262.       (default @default-dest)
  263.       (help dirhelp2)
  264.       (prompt (cat msg_whdoc "\n\n" msg_seldr))
  265.    )
  266. )
  267. (set docdir (tackon docdir ""))
  268.  
  269. ;*******************************
  270. ;** ASK INSTALLATION PREFERENCES
  271.  
  272. (complete 10)
  273.  
  274. (set var_cpu
  275.    (askchoice
  276.       (prompt msg_selcpu)
  277.       (help cpuhelp)
  278.       (choices msg_cpu000 msg_cpu020 msg_cpu040 msg_cpu060)
  279.    )
  280. )
  281.  
  282. (complete 12)
  283.  
  284. (set var_gadget
  285.    (askbool
  286.       (prompt msg_gadget)
  287.       (help (cat gadghelp "\n\n" gadghelp2))
  288.    )
  289. )
  290.  
  291. (if (= 1 var_gadget)(
  292.    (set gadgdir
  293.       (askdir
  294.          (default "SYS:Classes/Gadgets/")
  295.          (help dirhelp3)
  296.          (prompt (cat msg_whgadg "\n\n" msg_seldr))
  297.       )
  298.    )
  299.    (set gadgdir (tackon gadgdir ""))
  300. ))
  301.  
  302. (complete 14)
  303.  
  304. (set var_lang
  305.    (askoptions
  306.       (prompt msg_lang)
  307.       (help langhelp)
  308.       (choices msg_l_ita)
  309.       (default 1)
  310.    )
  311. )
  312.  
  313. (complete 16)
  314.  
  315. (set var_icon
  316.    (askchoice
  317.       (prompt msg_icop)
  318.       (help iconhelp)
  319.       (choices msg_icoo msg_icon msg_icom msg_icoi msg_icox)
  320.    )
  321. )
  322.  
  323. (complete 18)
  324.  
  325. (set var_exa
  326.    (askbool
  327.       (prompt msg_exa)
  328.       (help exahelp)
  329.    )
  330. )
  331.  
  332. (complete 19)
  333.  
  334. (set var_bm
  335.    (askbool
  336.       (prompt msg_bm)
  337.       (help (cat bmhelp1 bmhelp2))
  338.    )
  339. )
  340.  
  341. (if (= 1 var_bm)(
  342.    (set bmdir
  343.       (askdir
  344.          (default "SYS:Prefs/Presets/")
  345.          (help bmhelp3)
  346.          (prompt (cat msg_whbm "\n\n" msg_seldr))
  347.       )
  348.    )
  349.    (set bmdir (tackon bmdir ""))
  350. ))
  351.  
  352. (complete 20)
  353.  
  354. (set var_pwb
  355.    (askbool
  356.       (prompt msg_pwb "\n\n" msg_pwb2)
  357.       (help (cat pwbhelp "\n" pwbhelp2 "\n" pwbhelp3 "\n" pwbhelp4 "\n\n" pwbhelp5))
  358.    )
  359. )
  360.  
  361. ;*****************************
  362. ;** INSTALL FILES: VISUALPREFS
  363.  
  364. (complete 25)
  365.  
  366. (copyfiles
  367.    (source "VisualPrefs")
  368.    (dest "RAM:")
  369.    (newname "VP_000")
  370.    (safe)
  371. )
  372.  
  373. (if (= 0 var_cpu)(
  374.    (copyfiles (source "RAM:VP_000") (dest "RAM:") (newname "VP_0x0") (safe))
  375. ))
  376.  
  377. (if (= 1 var_cpu)(
  378.    (run "InstallTools/SPatch > NIL: -oRAM:VP_0x0 -pInstallFiles/VisualPrefs_020_030.pch RAM:VP_000" (safe))
  379. ))
  380.  
  381. (if (= 2 var_cpu)(
  382.    (run "InstallTools/SPatch > NIL: -oRAM:VP_0x0 -pInstallFiles/VisualPrefs_040.pch RAM:VP_000" (safe))
  383. ))
  384.  
  385. (if (= 3 var_cpu)(
  386.    (run "InstallTools/SPatch > NIL: -oRAM:VP_0x0 -pInstallFiles/VisualPrefs_060.pch RAM:VP_000" (safe))
  387. ))
  388.  
  389. (delete "RAM:VP_000" (safe))
  390.  
  391. (copyfiles
  392.    (source "RAM:VP_0x0")
  393.    (dest @default-dest)
  394.    (newname "VisualPrefs")
  395.    (infos) (noposition)
  396. )
  397.  
  398. (delete "RAM:VP_0x0" (safe))
  399.  
  400. ;***************************************
  401. ;** INSTALL FILES: SELECT.GADGET LIBRARY
  402.  
  403. (complete 30)
  404.  
  405. (if (= 1 var_gadget)(
  406.    (copylib
  407.       (source "InstallFiles/select.gadget")
  408.       (dest gadgdir)
  409.       (optional nofail)
  410.    )
  411. ))
  412.  
  413. ;*******************************
  414. ;** INSTALL FILES: DOCUMENTATION
  415.  
  416. (complete 35)
  417.  
  418. (if (< 4 var_icon)
  419.    (
  420.       (copyfiles
  421.          (source (tackon var_docd var_docr))
  422.          (dest docdir)
  423.          (infos) (noposition)
  424.       )
  425.       (copyfiles
  426.          (source (tackon var_docd var_doca))
  427.          (dest docdir)
  428.          (infos) (noposition)
  429.       )
  430.    )
  431.    (
  432.       (copyfiles
  433.          (source (tackon var_docd var_docr))
  434.          (dest docdir)
  435.       )
  436.       (copyfiles
  437.          (source (tackon var_docd var_doca))
  438.          (dest docdir)
  439.       )
  440.    )
  441. )
  442.  
  443. ;***************************
  444. ;** INSTALL FILES: GUI-PREFS
  445.  
  446. (complete 40)
  447.  
  448. (copyfiles
  449.    (source "Prefs/GUI")
  450.    (dest "RAM:")
  451.    (newname "GUI_000")
  452.    (safe)
  453. )
  454.  
  455. (if (= 0 var_cpu)(
  456.    (copyfiles (source "RAM:GUI_000") (dest "RAM:") (newname "GUI") (safe))
  457. ))
  458.  
  459. (if (= 1 var_cpu)(
  460.    (run "InstallTools/SPatch > NIL: -oRAM:GUI -pInstallFiles/GUI_020_030.pch RAM:GUI_000" (safe))
  461. ))
  462.  
  463. (if (= 2 var_cpu)(
  464.    (run "InstallTools/SPatch > NIL: -oRAM:GUI -pInstallFiles/GUI_040.pch RAM:GUI_000" (safe))
  465. ))
  466.  
  467. (if (= 3 var_cpu)(
  468.    (run "InstallTools/SPatch > NIL: -oRAM:GUI -pInstallFiles/GUI_060.pch RAM:GUI_000" (safe))
  469. ))
  470.  
  471. (delete "RAM:GUI_000" (safe))
  472.  
  473. (copyfiles
  474.    (source "RAM:GUI")
  475.    (dest "SYS:Prefs/")
  476.    (noposition)
  477. )
  478.  
  479. (if (< 4 var_icon)(
  480.    (copyfiles
  481.       (source "Prefs/GUI.info")
  482.       (dest "SYS:Prefs/")
  483.       (noposition)
  484.    )
  485. ))
  486.  
  487. (delete "RAM:GUI" (safe))
  488.  
  489. ;**************************
  490. ;** INSTALL FILES: CATALOGS
  491.  
  492. (complete 50)
  493.  
  494. (if (bitand var_lang 1)
  495.    (
  496.       (copyfiles
  497.          (source "Catalogs/italiano/gui.catalog")
  498.          (dest "LOCALE:Catalogs/italiano/")
  499.       )
  500.    )
  501. )
  502.  
  503. ;***********************
  504. ;** INSTALL FILES: ICONS
  505.  
  506. (complete 60)
  507.  
  508. (if (= 1 var_icon)(
  509.    (copyfiles
  510.       (source "NewIcons/GUI.info")
  511.       (dest "SYS:Prefs/")
  512.       (noposition)
  513.    )
  514.    (copyfiles
  515.       (source "NewIcons/doc.info")
  516.       (dest docdir)
  517.       (newname (cat var_docr ".info"))
  518.       (noposition)
  519.    )
  520. ))
  521.  
  522. (if (= 2 var_icon)(
  523.    (copyfiles
  524.       (source "MagicWB/GUI.info")
  525.       (dest "SYS:Prefs/")
  526.       (noposition)
  527.    )
  528.    (copyfiles
  529.       (source "MagicWB/doc.info")
  530.       (dest docdir)
  531.       (newname (cat var_docr ".info"))
  532.       (noposition)
  533.    )
  534. ))
  535.  
  536. (if (= 3 var_icon)(
  537.    (copyfiles
  538.       (source "Iconographics/GUI.info")
  539.       (dest "SYS:Prefs/")
  540.       (noposition)
  541.    )
  542.    (copyfiles
  543.       (source "Iconographics/doc.info")
  544.       (dest docdir)
  545.       (newname (cat var_docr ".info"))
  546.       (noposition)
  547.    )
  548. ))
  549.  
  550. ;******************************
  551. ;** INSTALL FILES: SAMPLE PREFS
  552.  
  553. (complete 70)
  554.  
  555. (if (= 1 var_exa)
  556.    (copyfiles
  557.       (source "Prefs/Presets/")
  558.       (dest "SYS:Prefs/Presets")
  559.       (all) (infos) (noposition)
  560.    )
  561. )
  562.  
  563. ;*******************************************
  564. ;** INSTALL FILES: SAMPLE BITMAP DIRECTORIES
  565.  
  566. (complete 75)
  567.  
  568. (if (= 1 var_bm)
  569.    (copyfiles
  570.       (source "Prefs/BitMaps/")
  571.       (dest bmdir)
  572.       (all) (infos) (noposition)
  573.    )
  574. )
  575.  
  576. ;***************************************
  577. ;** INSTALL FILES: NEW PREFERENCES FILE
  578.  
  579. ;(complete 80)
  580.  
  581. ;(rename "ENVARC:Sys/gui.prefs" "ENVARC:Sys/beta_gui.prefs")
  582. ;(run "InstallTools/ConvertGUIPrefs > NIL: ENVARC:Sys/beta_gui.prefs ENVARC:Sys/gui.prefs")
  583.  
  584. ;*******************
  585. ;** STARTUP-SEQUENCE
  586.  
  587. (complete 90)
  588.  
  589. (if (= 0 var_vp)
  590.    (
  591.       (run (cat "InstallTools/AddLine \"" @default-dest "\""))
  592.       (protect "S:Startup-sequence" "+srwd")
  593.    )
  594. )
  595.  
  596. ;************
  597. ;** WBSTARTUP
  598.  
  599. (complete 95)
  600.  
  601. (if (= 1 var_pwb)(
  602.    (copylib
  603.       (source "Tools/PatchWB/PatchWB")
  604.       (dest "SYS:WBStartup")
  605.       (optional nofail)
  606.    )
  607.    (copyfiles
  608.       (source "Tools/PatchWB/StartPatchWB")
  609.       (dest "SYS:WBStartup")
  610.       (infos) (noposition)
  611.    )
  612. ))
  613.  
  614. ;***************
  615. ;** LAST ADVICES
  616.  
  617. (message msg_advfp)
  618. (message msg_adv1 msg_adv2 msg_adv3)
  619.  
  620. ;***********
  621. ;** READ ME!
  622.  
  623. (complete 99)
  624.  
  625. (run "SYS:Utilities/MultiView \"Read me!\"" (safe))
  626.  
  627. ;*******
  628. ;** DONE
  629.  
  630. (complete 100)
  631. (exit (cat "\n" msg_done msg_done2))
  632.  
  633.